home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / scripts / HTML next >
Encoding:
Text File  |  1999-12-03  |  998 b   |  39 lines
  1. failat 31
  2. if not exists env:quickstarted
  3. Echo "Die CD ist nicht eingerichtet!*nBitte zuerst Quickstart ausführen!"
  4. wait 2
  5. quit
  6. endif
  7. set choiced `APCD:C/requestchoice "Amiga+ (C)" "Welchen Browser wollen sie verwenden?" "IBrowse (Emp.!)|AWeb|Voyager|Eigenen..."`
  8.  
  9. if $choiced eq 0 val
  10. lab choicing
  11. set APCDHtml `requestfile TITLE "Bitte Browser wählen:" DRAWER APCD:A+tools/browser`
  12. cd `get APCDHtml` >NIL:
  13. if not warn
  14. skip back choicing
  15. endif
  16. endif
  17. if $choiced eq 1
  18. set APCDHtml APCD:A+Tools/browser/ibrowse/ibrowse
  19. endif
  20. if $choiced eq 2 val
  21. set APCDHtml APCD:A+Tools/browser/Aweb3/Aweb
  22. endif
  23. if $choiced eq 3 val
  24. set APCDHtml APCD:A+Tools/Browser/Voyager/V
  25. endif
  26. set browser0 "Eigener!"
  27. set browser1 "IBrowse!"
  28. set browser2 "AWeb 3!"
  29. set browser3 "Voyager!"
  30.  
  31. requestchoice "Amiga+ (C)" "Neuer Browser: `get Browser$choiced`" Save|Use|Cancel >env:save
  32. if $save eq 1
  33. setenv APCDHtml "`get APCDHtml`"
  34. copy env:APCDHtml envarc: quiet >NIL:
  35. endif
  36. if $save eq 2
  37. setenv APCDHtml "`get APCDHtml`"
  38. endif
  39.